home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANALOGY2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.3 KB  |  119 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 810:KEY(9) ON:ON KEY(9) GOSUB 650:DIM A(30):FOR I=1 TO 30:A(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:R=0:N=0:GOSUB 1170:FOR I=1 TO 100:SWAP A(INT(RND*30+1)),A(INT(RND*30+1)):NEXT I:GOTO 260
  3. 30  PRINT"part to whole":RETURN
  4. 40  PRINT"type to one of its characteristics":RETURN
  5. 50  PRINT"things that are part of the same thing":RETURN
  6. 60  PRINT"measurement to what is measured":RETURN
  7. 70  PRINT"measurement to object measured":RETURN
  8. 80  PRINT"class to species":RETURN
  9. 90  PRINT"group to member":RETURN
  10. 100  PRINT"members of the same class":RETURN
  11. 110  PRINT"things with a feature in common":RETURN
  12. 120  PRINT"equivalent measures":RETURN
  13. 130  PRINT"parts of a hierarchy":RETURN
  14. 140  PRINT"cause and effect":RETURN
  15. 150  PRINT"things to what they do":RETURN
  16. 160  PRINT"tools to what they work on":RETURN
  17. 170  PRINT"tools to what they create":RETURN
  18. 180  PRINT"condition to what happens in that condition":RETURN
  19. 190  PRINT"worker to object created":RETURN
  20. 200  PRINT"worker to tool":RETURN
  21. 210  PRINT"person to his goal":RETURN
  22. 220  PRINT"person to something he avoids":RETURN
  23. 230  PRINT"synonyms and antonyms":RETURN
  24. 240  PRINT"things that go together":RETURN
  25. 250  PRINT"thing dependent on another":RETURN
  26. 260  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  27. 270  LOCATE 2,34:PRINT"Analogies 2 ":COLOR 0,11
  28. 280  LOCATE 4,21:PRINT CHR$(201);
  29. 290  FOR J=1 TO 35
  30. 300    PRINT CHR$(205);
  31. 310    IF J > 35 GOTO 330
  32. 320    NEXT J
  33. 330  PRINT CHR$(187)
  34. 340  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  35. 350  PRINT CHR$(186)
  36. 360  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  37. 370  PRINT CHR$(186)
  38. 380  LOCATE 7,21:PRINT CHR$(200);
  39. 390  FOR J=1 TO 35
  40. 400    PRINT CHR$(205);
  41. 410    IF J > 35 GOTO 430
  42. 420    NEXT J
  43. 430  PRINT CHR$(188):COLOR 7,0
  44. 440  XX=1:C=A(XX):R=0:N=0
  45. 450  RESTORE:IF C>1 THEN FOR L=1 TO C-1:READ A$,B$:FOR X=1 TO 6:READ A1(X):NEXT X,L
  46. 460  GOSUB 1130
  47. 470  READ A$,B$
  48. 480  PRINT:COLOR 0,3:PRINT"Problem" C
  49. 490  PRINT:PRINT"This is what kind of analogy?":PRINT
  50. 500  AL=LEN(A$):BL=LEN(B$):COLOR 11,0
  51. 510  PRINT "VARPTR" STRING$(AL,"SOUND") "COLOR       " "VARPTR" STRING$(BL,"SOUND") "COLOR"
  52. 520  PRINT "CALL" A$ "CALL";:COLOR 0,11:PRINT" is to ";:COLOR 11,0:PRINT "CALL" B$ "CALL"
  53. 530  PRINT "CLS" STRING$(AL,"SOUND") "'       " "CLS" STRING$(BL,"SOUND") "'":PRINT
  54. 540  FOR X=1 TO 5:COLOR 3,8:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  ";:READ A1(X):
  55. 550  ON A1(X) GOSUB 30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250:NEXT X
  56. 560  READ K
  57. 570  LOCATE 25,1:PRINT"Your choice is - ";
  58. 580  GOSUB 1180
  59. 590  IF INSTR("12345",IKEY$)=0 THEN 580
  60. 600  N=N+1:IF VAL(IKEY$)=K THEN 610 ELSE 620
  61. 610  LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:TIMEOUT=3:GOSUB 1140:LOCATE 25,1:PRINT SPC(79);:R=R+1:GOTO 630
  62. 620  PLAY "mfn28n21t33":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  The answer was " K ".";:COLOR 7,0:TIMEOUT=3:GOSUB 1140:LOCATE 25,1:PRINT SPC(79);
  63. 630  XX=XX+1
  64. 640  IF XX<30 THEN C=A(XX):GOTO 450
  65. 650  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  66. 660  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  67. 670  LOCATE 3,1:PRINT SPC(79)
  68. 680  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  69. 690  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  70. 700  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  71. 710  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  72. 720  COLOR 11,4:GOSUB 1130:COLOR 3,0:LOCATE 15,17
  73. 730  IF N<3 THEN PRINT"You didn't give me much of a chance, did you?":PRINT:PRINT:PRINT:GOTO 790
  74. 740  PRINT"You scored" R "right out of" N " or" INT(100*R/N) "percent.":PRINT:PRINT:PRINT:LOCATE ,17
  75. 750  IF R/N<0.6 THEN PRINT"Why don't you give me another try?":TIMEOUT=3:GOSUB 1140:RUN
  76. 760  LOCATE ,34:IF R/N<=0.9 THEN PRINT"Very good!":GOTO 790
  77. 770  IF R/N<0.99 THEN PRINT"Excellent!"
  78. 780  IF R/N>0.99 THEN COLOR 19,0:PRINT"Brilliant!"
  79. 790  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  80. 800  IN$=INKEY$:IF IN$="" THEN 800 ELSE 820
  81. 810  SYSTEM
  82. 820  RUN "analogy3
  83. 830  DATA act, play,2,7,9,1,11,4
  84. 840  DATA architect, blueprint,18,15,13,14,7,1
  85. 850  DATA army, soldier,7,11,8,10,19,1
  86. 860  DATA bird, sparrow,21,22,23,6,7,4
  87. 870  DATA boss, worker,13,16,11,14,19,3
  88. 880  DATA canteen, water,19,22,3,15,16,2
  89. 890  DATA crutch, locomotion, 21,11,15,11,6,3
  90. 900  DATA dial, picture tube,11,21,22,7,3,5
  91. 910  DATA dictator, powerful,2,1,9,12,23,1
  92. 920  DATA diver, bends,12,11,19,20,23,4
  93. 930  DATA diver,depths,12,11,19,20,23,3
  94. 940  DATA entrepreneur, profits,19,2,4,16,20,1
  95. 950  DATA frequency, radio waves,5,3,7,10,12,1
  96. 960  DATA health, clean air,19,2,3,23,16,4
  97. 970  DATA herb, flavor,16,19,1,3,13,5
  98. 980  DATA horse, saddle,23,22,12,11,6,2
  99. 990  DATA insidious, subtle,22,21,7,6,2,2
  100. 1000  DATA mob, moll,23,3,11,7,6,4
  101. 1010  DATA mold, cheese,2,22,8,16,6,2
  102. 1020  DATA mop, floor,15,19,21,14,22,4
  103. 1030  DATA mutton, sheep,13,1,12,21,10,2
  104. 1040  DATA pencil, paper,3,12,13,14,1,4
  105. 1050  DATA poison, death,14,16,12,20,23,3
  106. 1060  DATA pound, dog,12,2,22,9,8,3
  107. 1070  DATA programmer, program,20,14,18,21,17,5
  108. 1080  DATA prophet, revelation,18,15,17,20,21,3
  109. 1090  DATA seek, solicit,19,3,1,21,5,4
  110. 1100  DATA stingy, tight,22,21,3,2,1,2
  111. 1110  DATA TV, radio,15,2,11,8,13,4
  112. 1120  DATA war, battles,20,16,11,14,7,2
  113. 1130  FOR Y=8 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 8,1:RETURN
  114. 1140  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  115. 1150  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  116. 1160  IF TIMEOUT > TIME3 - TIME2 THEN 1150 ELSE RETURN
  117. 1170  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  118. 1180  IKEY$=INKEY$:IF IKEY$="" THEN 1180 ELSE RETURN
  119.